home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swags_z.zip
/
STRINGS.SWG
/
0039_Locate String in SUB-Str.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-26
|
795b
|
18 lines
{*****************************************************************************
* Function ...... InStr()
* Purpose ....... To locate a substring in a string starting at a given
* position.
* Parameters .... n Position in the string to start searching
* sub Substring to search for
* s String to search in
* Returns ....... Numeric position of <sub> in string <s> after position <n>
* Notes ......... Uses function Right
* Author ........ Martin Richardson
* Date .......... October 2, 1992
*****************************************************************************}
FUNCTION InStr( n: BYTE; sub: STRING; s: STRING ): BYTE;
BEGIN
InStr := POS( sub, Right( s, LENGTH(s)-n+1 ) ) + n - 1;
END;